﻿<?php

// ==================================================================================================
// 												IDENTIFICACIÓN
// ==================================================================================================

// ==================================================================================================			
//	FUNCION - CONSULTA LA INFORMACION DEL GENERO DE INSECTO ACUATICO
// ==================================================================================================

function genero_xajax( $caracteristicas, $claves, $valores ) {
    $objResponse = new xajaxResponse();
	
	if ( $caracteristicas != "" ) {
		/*
		// Consultamos las Caracteristicas Actuales
		$objResponse = caracteristicas_xajax( $caracteristicas, "2" );
		*/
		$store 	= $_SESSION['store'];
		
		$lista_claves 	= explode( ";", $claves );
		$lista_valores 	= explode( ";", $valores );
		
		$sql = "PREFIX onto:  <http://www.owl-ontologies.com/OntoInsectos.owl#>
	
				SELECT DISTINCT ?genero 
				WHERE {
					?familia ?fpo ?orden FILTER (?fpo = onto:fa_pertenece_a_or).
					?familia ?fcg ?genero FILTER (?fcg = onto:fa_compuesta_por_ge). ";
		if ($_SESSION['ubicacion'] == "produccion") {
			$sql .= "FILTER (?orden = onto:".utf8_encode("Plecóptera")."). ";
		} else {
			$sql .= "FILTER (?orden = onto:Plecóptera). ";
		}
		
		if ( $claves != "" && $valores != "" ) {
			for ( $i = 0; $i < count($lista_claves); $i++ ) {
				$sql .= "?genero ?p$i ?v$i FILTER (?p$i= onto:".$lista_claves[$i].")
							FILTER (?v$i = '".$lista_valores[$i]."'). ";
			}
		}
		
		$sql .= "}";
		
		if ( count($lista_claves) == 3 ) {
			$sql .= "
					ORDER BY ?genero LIMIT 1";
		}
		
		$rows = $store->query($sql, 'rows');
			
		if ($rows = $store->query($sql, 'rows')) {
			$i = 0;
			foreach ($rows as $row) {
				$par_genero					= explode("^^", $row['genero']);
				$lista_info_especie[3] 		= $par_genero[0];
				
				$par_label 					= explode( "#", $par_genero[0] );
				$label_consulta				= str_replace("_", " ", $par_label[1]);
			}
			//$objResponse->alert(("Atención: El Género que usted intenta Identificar es: ".strtoupper($label_consulta)."."));
			
		} else {
			$objResponse->alert(("Atención: No se encontraron Géneros.\n\nSQL: \n".$sql));
		}
			
			
		// Consultamos la Descripcion de la Especie
		$sql = "PREFIX rdf: <http://www.w3.org/2000/01/rdf-schema#> 
			
				SELECT ?label ?comment  
				WHERE { 
					?Class rdf:label ?label FILTER (?label = '".$label_consulta.".' ).
					?Class rdf:comment ?comment.
				}";
		
		$rows = $store->query($sql, 'rows');
			
		if ($rows = $store->query($sql, 'rows')) {
			foreach ($rows as $row) {
				$par_label				= explode("^^", $row['label']);
				$label 					= $par_label[0];
				$par_comment			= explode("^^", $row['comment']);
				$comment				= str_replace("#", "<br/>", str_replace("/*", "<b>", str_replace("*/", "</b>", $par_comment[0])));
			}
		}
	} else {
		$objResponse->alert("Atención: Debe indicar el Género del Insecto Acuático.");
	}
	
	if ($_SESSION['ubicacion'] == "produccion") {
		$objResponse->assign("div_mensaje_resultado", 			"innerHTML", 		utf8_encode("El Insecto Acuático identificado corresponde al Género"));
	} else {
		$objResponse->assign("div_mensaje_resultado", 			"innerHTML", 		("El Insecto Acuático identificado corresponde al Género"));
	}
	$objResponse->assign("div_label", 						"innerHTML", 		(str_replace(".", " ", strtoupper($label))));
	$objResponse->assign("div_comment", 					"innerHTML", 		$comment);
	
	$objResponse->assign("div_pregunta", 					"style.display", 	"none");
	
	$objResponse->assign("div_tabla_generos", 				"style.display", 	"none");
	$objResponse->assign("div_generos", 					"innerHTML", 		"");
	
	// Buscar Caracteristicas
	$objResponse->script("buscar_caracteristicas();");
	
	$objResponse->assign("div_tabla_imagenes", 				"style.display", 	"none");
	$objResponse->assign("div_imagenes", 					"innerHTML", 		"");
	
	if ( strtoupper($label) == "ANACRONEURIA." ) {
		$objResponse->assign("div_btn_comenzar", 				"style.display", 	"none");
		$objResponse->assign("div_btn_especies", 				"style.display", 	"block");
	} else {
		// Limpiamos las Variables Ocultas para volver a comenzar el proceso de Identificación
		$objResponse->script("limpiar_datos_identificacion();");
	
		$objResponse->assign("div_btn_especies", 				"style.display", 	"none");
		$objResponse->assign("div_btn_comenzar", 				"style.display", 	"block");
	}
	
    return $objResponse;
}


// ==================================================================================================			
//	FUNCION - CONSULTA LA INFORMACION DE LA ESPECIE DE INSECTO ACUATICO
// ==================================================================================================

function especie_xajax( $caracteristicas, $claves, $valores ) {
    $objResponse = new xajaxResponse();
	
	if ( $caracteristicas != "" ) {
		
		// Consultamos las Caracteristicas Actuales
		$objResponse = caracteristicas_xajax( $caracteristicas, "2" );
		
		$store 	= $_SESSION['store'];
		
		$lista_claves 	= explode( ";", $claves );
		$lista_valores 	= explode( ";", $valores );
		
		// Consultamos las Propiedades de la Especie
		$sql_where = "?famila ?fpo ?orden FILTER (?fpo = onto:fa_pertenece_a_or). 
                      ?genero ?gpf ?familia FILTER (?gpf = onto:ge_pertenece_a_fa). 
                      ?especie ?epg ?genero FILTER (?epg = onto:es_pertenece_a_ge). 
					  ";
		//$sql_parametros = "";
		for ( $i = 0; $i < count($lista_claves); $i++ ) {
			$sql_where .= "
						?especie ?p$i ?v$i FILTER (?p$i= onto:".$lista_claves[$i].")
						FILTER (?v$i = '".$lista_valores[$i]."'). ";
						
			//$sql_parametros .= "?v$i ";
		}
		
		/*
		?subject ?property ?object FILTER (?object = onto:".$genero.") 
		?subject ?property ?object FILTER (?subject = onto:".$genero.")
		".$sql_parametros." 
		*/
		
		$sql = "PREFIX onto: <http://www.owl-ontologies.com/OntoInsectos.owl#> 
				
				SELECT DISTINCT ?orden ?familia ?genero ?especie 
				WHERE { 
					".$sql_where."
				}";
		
		$rows = $store->query($sql, 'rows');
			
		if ($rows = $store->query($sql, 'rows')) {
			foreach ($rows as $row) {
				$par_orden					= explode("^^", $row['orden']);
				$lista_info_especie[1] 		= $par_orden[0];
				$par_familia				= explode("^^", $row['familia']);
				$lista_info_especie[2] 		= $par_familia[0];
				$par_genero					= explode("^^", $row['genero']);
				$lista_info_especie[3] 		= $par_genero[0];
				$par_especie				= explode("^^", $row['especie']);
				$lista_info_especie[4] 		= ucfirst($par_especie[0]);
				
				$par_label 					= explode( "#", $par_especie[0] );
				$label_consulta				= str_replace("_", " ", $par_label[1]);
			}
			
		} else {
			$objResponse->alert("Atención: No se encontraron Especies.\n\nSQL: \n".$sql);
		}
		
		
		// Consultamos la Descripcion de la Especie
		$sql = "PREFIX rdf: <http://www.w3.org/2000/01/rdf-schema#> 
			
				SELECT ?label ?comment  
				WHERE { 
					?Class rdf:label ?label FILTER (?label = '".$label_consulta.".' ).
					?Class rdf:comment ?comment.
				}";
		
		$rows = $store->query($sql, 'rows');
			
		if ($rows = $store->query($sql, 'rows')) {
			foreach ($rows as $row) {
				$par_label				= explode("^^", $row['label']);
				$label 					= $par_label[0];
				$par_comment			= explode("^^", $row['comment']);
				$comment				= str_replace("#", "<br/>", str_replace("/*", "<b>", str_replace("*/", "</b>", $par_comment[0])));
			}
		}
	} else {
		$objResponse->alert("Atención: Debe indicar la Especie del Insecto Acuático.");
	}
	
	// Limpiamos las Variables Ocultas para volver a comenzar el proceso de Identificación
	$objResponse->script("limpiar_datos_identificacion();");
	if ($_SESSION['ubicacion'] == "produccion") {
		$objResponse->assign("div_mensaje_resultado", 			"innerHTML", 		utf8_encode("El Insecto Acuático identificado corresponde a la Especie"));
	} else {
		$objResponse->assign("div_mensaje_resultado", 			"innerHTML", 		"El Insecto Acuático identificado corresponde a la Especie");
	}
	$objResponse->assign("div_label", 						"innerHTML", 		str_replace(".", " ", strtoupper($label)));
	$objResponse->assign("div_comment", 					"innerHTML", 		$comment);
	
	$objResponse->assign("div_pregunta", 					"style.display", 	"none");
	$objResponse->assign("div_tabla_carac_pre", 			"style.display", 	"none");
	$objResponse->assign("div_carac_pre", 					"innerHTML", 		"");
	$objResponse->assign("div_tabla_imagenes", 				"style.display", 	"none");
	$objResponse->assign("div_imagenes", 					"innerHTML", 		"");
	
	$objResponse->assign("div_resultado", 					"style.display", 	"block");
	
    return $objResponse;
}


// ==================================================================================================			
//	FUNCION - CONSULTAR LA DESCRIPCION DE UNA RESPUESTA
// ==================================================================================================

function consultar_desc_respu_ide_xajax( $id_respu_ide ) {
    $objResponse = new xajaxResponse();
	
	if ( $id_respu_ide != "" ) {
		$conexion 	= new EnlaceBD_nodo;
		$var 		= $conexion->conectar( $_SESSION['db_plecoptera'] );
		
		$sql = "SET character_set_results = 'utf8', 
					character_set_client = 'utf8', 
					character_set_connection = 'utf8', 
					character_set_database = 'utf8', 
					character_set_server = 'utf8'";
		
		$respuesta = $conexion->consultar($sql) 
			or die("No se pudo Modificar el character_set a: utf8.");
		
		// CONSULTAMOS LOS DATOS DE LA PREGUNTA
		$sql = "select id_respu_ide as id_respu_ide, 
					descripcion as descripcion 
				from ".$_SESSION['db_plecoptera'].$_SESSION['schema_db_nodo'].".ple_respuesta 
				where id_respu_ide = $id_respu_ide";
		
		$respuesta = $conexion->consultar($sql) 
			or die("No se pudo Consultar los Datos de la Respuesta: $id_respu_ide.");
		
		$temparray = $respuesta->buscar_fila();
			$lista_respu_ide[0] = $temparray['id_respu_ide'];
			$lista_respu_ide[1] = $temparray['descripcion'];
		
		$conexion->desconectar();
		
		$_SESSION['desc_respu_ide'] = $lista_respu_ide[1];
		
	} else {
		$objResponse->alert("Atención: Debe indicar el ID de la Respuesta que desea consultar.");
	}
	
    return $objResponse;
}


// ==================================================================================================			
//	FUNCION - CONSULTAR LAS CARACTERISTICAS ACTUALES
// ==================================================================================================

// Ubicacion:	1	Pregunta
//				2	Resultado

function caracteristicas_xajax( $caracteristicas, $ubicacion ) {
    $objResponse = new xajaxResponse();
	
	if ( $caracteristicas != "" ) {
		$conexion 	= new EnlaceBD_nodo;
		$var 		= $conexion->conectar( $_SESSION['db_plecoptera'] );
		
		$sql = "SET character_set_results = 'utf8', 
					character_set_client = 'utf8', 
					character_set_connection = 'utf8', 
					character_set_database = 'utf8', 
					character_set_server = 'utf8'";
		
		$respuesta = $conexion->consultar($sql) 
			or die("No se pudo Modificar el character_set a: utf8.");
		
		// CONSULTAMOS LAS CARACTERISTICAS ACTUALES
		$sql = "select descripcion as descripcion 
				from ".$_SESSION['db_plecoptera'].$_SESSION['schema_db_nodo'].".ple_respuesta 
				where id_respu_ide in ( $caracteristicas )";
		
		$respuesta = $conexion->consultar($sql) 
			or die("No se pudo Consultar las Caracteristicas Actuales.");
		
		$i = 0;
		$desc_caracteristicas = "";
		while ( $temparray = $respuesta->buscar_fila() ) {
			$lista_caracteristicas[$i] = $temparray['descripcion'];
			$desc_caracteristicas .= "&bull; ".substr($lista_caracteristicas[$i], 0, -1).",<br />";
			$i++;
		}
		
		$conexion->desconectar();
		
		if ( $ubicacion == 1 ) {
			$objResponse->assign("div_carac_pre", 				"innerHTML", 		(substr($desc_caracteristicas, 0, -7)."."));
			$objResponse->assign("div_tabla_carac_pre", 		"style.display", 	"block");
		} else if ( $ubicacion == 2 ) {
			$objResponse->assign("div_carac_res", 				"innerHTML", 		(substr($desc_caracteristicas, 0, -7)."."));
			$objResponse->assign("div_tabla_carac_res", 		"style.display", 	"block");
		}
		
	} else {
		$objResponse->alert("Atención: Debe indicar el ID de las Caracteristicas segun la Respuesta Seleccionada.");
	}
    return $objResponse;
}


// ==================================================================================================			
//	FUNCION - CONSULTAR LAS IMAGENES DE UN GENERO O ESPECIE
// ==================================================================================================

function imagenes_xajax( $imagenes ) {
    $objResponse = new xajaxResponse();
	
	if ( $imagenes != "" ) {
		
		$lista_imagenes 	= explode( ";", $imagenes );
		
		$desc_imagenes = "";
		for ( $i = 0; $i < count($lista_imagenes); $i++ ) {
			$desc_imagenes .= "<img src='../../publicos/images/fotos/".$lista_imagenes[$i].".jpg' alt='' border='0' /><br />";
		}
		
		$objResponse->assign("div_imagenes", 				"innerHTML", 		$desc_imagenes);
		$objResponse->assign("div_tabla_imagenes", 			"style.display", 	"block");
		
	} else {
		$objResponse->assign("div_imagenes", 				"innerHTML", 		"");
		$objResponse->assign("div_tabla_imagenes", 			"style.display", 	"none");
	}
	
    return $objResponse;
}


// ==================================================================================================			
//	FUNCION - CONSULTAR LAS LISTA DE GENEROS
// ==================================================================================================

function lista_generos_xajax( $claves, $valores ) {
    $objResponse = new xajaxResponse();
	
	$store 	= $_SESSION['store'];
	
	$lista_claves 	= explode( ";", $claves );
	$lista_valores 	= explode( ";", $valores );
	
	$sql = "PREFIX onto:  <http://www.owl-ontologies.com/OntoInsectos.owl#>

			SELECT DISTINCT ?genero 
			WHERE {
				?familia ?fpo ?orden FILTER (?fpo = onto:fa_pertenece_a_or).
				?familia ?fcg ?genero FILTER (?fcg = onto:fa_compuesta_por_ge).
					FILTER (?orden = onto:Plecóptera). ";
	
	if ( $claves != "" && $valores != "" ) {
		for ( $i = 0; $i < count($lista_claves); $i++ ) {
			$sql .= "?genero ?p$i ?v$i FILTER (?p$i= onto:".$lista_claves[$i].")
						FILTER (?v$i = '".$lista_valores[$i]."'). ";
		}
	}
	
	$sql .= "}
			ORDER BY ?genero";
	
	if ($_SESSION['ubicacion'] == "produccion") {
		$rows = $store->query(utf8_encode($sql), 'rows');
		
		if ($rows = $store->query(utf8_encode($sql), 'rows')) {
			$i = 0;
			$option_genero = "";
			foreach ($rows as $row) {
				$data				= explode("#", $row['genero']);
				$lista_generos[$i] 	= $data[1];
				$option_genero 		.= '<option value="'.$lista_generos[$i].'">'.$lista_generos[$i].'</option>';
				$i++;
			}
			
			$objResponse->assign("div_generos", 				"innerHTML", 		"<select id='generos' name='generos' size='10' class='text'>".($option_genero)."</select>");
			
		} else {
			$objResponse->alert("Atención: No se encontraron Géneros.\n\nSQL: \n".$sql);
		}
	} else {
		$rows = $store->query($sql, 'rows');
		
		if ($rows = $store->query($sql, 'rows')) {
			$i = 0;
			$option_genero = "";
			foreach ($rows as $row) {
				$data				= explode("#", $row['genero']);
				$lista_generos[$i] 	= $data[1];
				$option_genero 		.= '<option value="'.$lista_generos[$i].'">'.$lista_generos[$i].'</option>';
				$i++;
			}
			
			$objResponse->assign("div_generos", 				"innerHTML", 		"<select id='generos' name='generos' size='10' class='text'>".($option_genero)."</select>");
			
		} else {
			$objResponse->alert("Atención: No se encontraron Géneros.\n\nSQL: \n".$sql);
		}
	}
	
	$objResponse->assign("div_tabla_generos", 				"style.display", 	"block");
	
    return $objResponse;
}


// ==================================================================================================			
//	FUNCION - CONSULTAR LAS LISTA DE ESPECIES
// ==================================================================================================

function lista_especies_xajax( $claves, $valores ) {
    $objResponse = new xajaxResponse();
	
	$store 	= $_SESSION['store'];
	
	$lista_claves 	= explode( ";", $claves );
	$lista_valores 	= explode( ";", $valores );
	
	$sql = "PREFIX onto:  <http://www.owl-ontologies.com/OntoInsectos.owl#>

			SELECT DISTINCT ?especie 
			WHERE {
				?familia ?fpo ?orden FILTER (?fpo = onto:fa_pertenece_a_or).
				?familia ?fcg ?genero FILTER (?fcg = onto:fa_compuesta_por_ge).
				?especie ?epg ?genero FILTER (?epg = onto:es_pertenece_a_ge). ";
	
	if ($_SESSION['ubicacion'] == "produccion") {
		$sql .= "FILTER (?orden = onto:".utf8_encode("Plecóptera").") ";
	} else {
		$sql .= "FILTER (?orden = onto:Plecóptera). ";
	}
	
	if ( $claves != "" && $valores != "" ) {
		for ( $i = 0; $i < count($lista_claves); $i++ ) {
			$sql .= "?especie ?p$i ?v$i FILTER (?p$i= onto:".$lista_claves[$i].")
						FILTER (?v$i = '".$lista_valores[$i]."'). ";
		}
	}
	
	$sql .= "}
			ORDER BY ?especie";
	
	$rows = $store->query($sql, 'rows');
		
	if ($rows = $store->query($sql, 'rows')) {
		$i = 0;
		$option_especie = "";
		foreach ($rows as $row) {
			$data					= explode("#", $row['especie']);
			$lista_especies[$i] 	= str_replace("_", " ", $data[1]);
			$option_especie 		.= '<option value="'.$lista_especies[$i].'">'.$lista_especies[$i].'</option>';
			$i++;
		}
		
		$objResponse->assign("div_especies", 				"innerHTML", 		"<select id='especies' name='especies' size='10' class='text'>".($option_especie)."</select>");
		
	} else {
		$objResponse->alert("Atención: No se encontraron Especies.\n\nSQL: \n".$sql);
	}
	
	$objResponse->assign("div_tabla_especies", 				"style.display", 	"block");
	
    return $objResponse;
}


// ==================================================================================================			
//	FUNCION - CONSULTAR LOS DATOS DE LA PREGUNTA
// ==================================================================================================

// procedencia:		1	comenzar
//					2	resultado a comenzar
//					3	resultado a pregunta de especies

function pregunta_xajax( $id_pregu_ide, $procedencia ) {
    $objResponse = new xajaxResponse();
	
	if ( $id_pregu_ide != "" ) {
		
		$conexion 	= new EnlaceBD_nodo;
		$var 		= $conexion->conectar( $_SESSION['db_plecoptera'] );
		
		$sql = "SET character_set_results = 'utf8', 
					character_set_client = 'utf8', 
					character_set_connection = 'utf8', 
					character_set_database = 'utf8', 
					character_set_server = 'utf8'";
		
		$respuesta = $conexion->consultar($sql) 
			or die("No se pudo Modificar el character_set a: utf8.");
		
		// CONSULTAMOS LOS DATOS DE LA PREGUNTA
		$sql = "select id_pregu_ide as id_pregu_ide, 
					id_respu_ide1 as id_respu_ide1, 
					id_respu_ide2 as id_respu_ide2, 
					resul_res1 as resul_res1, 
					resul_res2 as resul_res2, 
					carac_pre1 as carac_pre1, 
					carac_pre2 as carac_pre2, 
					genero1 as genero1, 
					genero2 as genero2, 
					especie1 as especie1, 
					especie2 as especie2, 
					clave1 as clave1, 
					valor1 as valor1, 
					clave2 as clave2, 
					valor2 as valor2, 
					img1 as img1, 
					img2 as img2, 
					img_ide1 as img_ide1, 
					img_ide2 as img_ide2 
				from ".$_SESSION['db_plecoptera'].$_SESSION['schema_db_nodo'].".ple_pregunta 
				where id_pregu_ide = $id_pregu_ide";
		
		$respuesta = $conexion->consultar($sql) 
			or die("No se pudo Consultar los Datos de la Pregunta: $id_pregun_ide.");
		
		$temparray = $respuesta->buscar_fila();
			$lista_pregu_ide[0] = $temparray['id_pregu_ide'];
			$lista_pregu_ide[1] = $temparray['id_respu_ide1'];
			$objResponse = consultar_desc_respu_ide_xajax( $lista_pregu_ide[1] );
			$lista_pregu_ide[2] = $_SESSION['desc_respu_ide'];
			$lista_pregu_ide[3] = $temparray['id_respu_ide2'];
			$objResponse = consultar_desc_respu_ide_xajax( $lista_pregu_ide[3] );
			$lista_pregu_ide[4] = $_SESSION['desc_respu_ide'];
			$lista_pregu_ide[5] = $temparray['resul_res1'];
			$lista_pregu_ide[6] = $temparray['resul_res2'];
			$lista_pregu_ide[7] = $temparray['carac_pre1'];
			$lista_pregu_ide[8] = $temparray['carac_pre2'];
			$lista_pregu_ide[9] = $temparray['genero1'];
			$lista_pregu_ide[10] = $temparray['genero2'];
			$lista_pregu_ide[11] = $temparray['especie1'];
			$lista_pregu_ide[12] = $temparray['especie2'];
			$lista_pregu_ide[13] = $temparray['clave1'];
			$lista_pregu_ide[14] = $temparray['valor1'];
			$lista_pregu_ide[15] = $temparray['clave2'];
			$lista_pregu_ide[16] = $temparray['valor2'];
			$lista_pregu_ide[17] = $temparray['img1'];
			$lista_pregu_ide[18] = $temparray['img2'];
			$lista_pregu_ide[19] = $temparray['img_ide1'];
			$lista_pregu_ide[20] = $temparray['img_ide2'];
		
		$conexion->desconectar();
		
		if ( $id_pregu_ide == "3" ) {
			$conexion 	= new EnlaceBD_nodo;
			$var 		= $conexion->conectar( $_SESSION['db_plecoptera'] );
			
			// CONSULTAMOS LAS CARACTERISTICAS ACTUALES
			$sql = "select descripcion as descripcion 
					from ".$_SESSION['db_plecoptera'].$_SESSION['schema_db_nodo'].".ple_respuesta 
					where id_respu_ide in ( 1,3 )";
			
			$respuesta = $conexion->consultar($sql) 
				or die("No se pudo Consultar las Caracteristicas Actuales.");
			
			$i = 0;
			$desc_caracteristicas = "";
			while ( $temparray = $respuesta->buscar_fila() ) {
				$lista_caracteristicas[$i] = $temparray['descripcion'];
				$desc_caracteristicas .= "&bull; ".substr($lista_caracteristicas[$i], 0, -1).",<br />";
				$i++;
			}
			
			$conexion->desconectar();
			
			if ( $ubicacion == 1 ) {
				$objResponse->assign("div_carac_pre", 				"innerHTML", 		(substr($desc_caracteristicas, 0, -7)."."));
				$objResponse->assign("div_tabla_carac_pre", 		"style.display", 	"block");
			}
		}
		
		$objResponse->assign("h_id_pregu_ide", 				"value", 			$lista_pregu_ide[0]);
		
		$objResponse->assign("h_id_respu_ide1", 			"value", 			$lista_pregu_ide[1]);
		$objResponse->assign("h_id_respu_ide2", 			"value", 			$lista_pregu_ide[3]);
		$objResponse->assign("h_resul_res1", 				"value", 			$lista_pregu_ide[5]);
		$objResponse->assign("h_resul_res2", 				"value", 			$lista_pregu_ide[6]);
		$objResponse->assign("h_carac_pre1", 				"value", 			$lista_pregu_ide[7]);
		$objResponse->assign("h_carac_pre2", 				"value", 			$lista_pregu_ide[8]);
		
		$objResponse->assign("h_genero1", 					"value", 			$lista_pregu_ide[9]);
		$objResponse->assign("h_genero2", 					"value", 			$lista_pregu_ide[10]);
		$objResponse->assign("h_especie1", 					"value", 			$lista_pregu_ide[11]);
		$objResponse->assign("h_especie2", 					"value", 			$lista_pregu_ide[12]);
		
		$objResponse->assign("h_clave1", 					"value", 			($lista_pregu_ide[13]));
		$objResponse->assign("h_valor1", 					"value", 			($lista_pregu_ide[14]));
		$objResponse->assign("h_clave2", 					"value", 			($lista_pregu_ide[15]));
		$objResponse->assign("h_valor2", 					"value", 			($lista_pregu_ide[16]));
		
		$objResponse->assign("div_desc_respu1", 			"innerHTML", 		($lista_pregu_ide[2]));
		$objResponse->assign("div_desc_respu2", 			"innerHTML", 		($lista_pregu_ide[4]));
		
		$objResponse->assign("h_img1", 						"value", 			$lista_pregu_ide[17]);
		$objResponse->assign("h_img2", 						"value", 			$lista_pregu_ide[18]);
		
		$objResponse->assign("h_img_ide1", 					"value", 			$lista_pregu_ide[19]);
		$objResponse->assign("h_img_ide2", 					"value", 			$lista_pregu_ide[20]);
		
		if ( $procedencia == 1 ) {
			$objResponse->assign("div_comenzar", 				"style.display", 	"none");
		} else if ( $procedencia == 2 ) {
			$objResponse->assign("div_resultado", 				"style.display", 	"none");
		} else if ( $procedencia == 3 ) {
			$objResponse->assign("div_resultado", 				"style.display", 	"none");
			$objResponse->assign("div_btn_especies", 			"style.display", 	"none");
			$objResponse->assign("div_btn_comenzar", 			"style.display", 	"block");
		}
		$objResponse->assign("div_pregunta", 				"style.display", 	"block");
	
	} else {
		$objResponse->alert("Atención: Debe indicar cuantos Ocelos posee el Insecto Acuático.");
	}
    return $objResponse;
}


// ==================================================================================================			
//	FUNCION - CANCELA LA IDENTIFICACION DEL INSECTO ACUATICO
// ==================================================================================================

function cancelar_xajax() {
    $objResponse = new xajaxResponse();
	
	$objResponse->assign("div_comenzar", 				"style.display", 	"block");
	$objResponse->assign("div_pregunta", 				"style.display", 	"none");
	$objResponse->assign("div_resultado", 				"style.display", 	"none");
	
	$objResponse->assign("div_tabla_carac_pre", 		"style.display", 	"none");
	$objResponse->assign("div_carac_pre", 				"innerHTML", 		"");
	$objResponse->assign("div_tabla_carac_res", 		"style.display", 	"none");
	$objResponse->assign("div_carac_res", 				"innerHTML", 		"");
	$objResponse->assign("div_tabla_generos", 			"style.display", 	"none");
	$objResponse->assign("div_generos", 				"innerHTML", 		"");
	$objResponse->assign("div_tabla_especies", 			"style.display", 	"none");
	$objResponse->assign("div_especies", 				"innerHTML", 		"");
	$objResponse->assign("div_tabla_imagenes", 			"style.display", 	"none");
	$objResponse->assign("div_imagenes", 				"innerHTML", 		"");
	
	$objResponse->assign("h_id_pregu_ide", 				"value", 			"");
	
	$objResponse->assign("h_id_respu_ide1", 			"value", 			"");
	$objResponse->assign("h_id_respu_ide2", 			"value", 			"");
	$objResponse->assign("h_resul_res1", 				"value", 			"");
	$objResponse->assign("h_resul_res2", 				"value", 			"");
	$objResponse->assign("h_carac_pre1", 				"value", 			"");
	$objResponse->assign("h_carac_pre2", 				"value", 			"");
	
	$objResponse->assign("h_genero1", 					"value", 			"");
	$objResponse->assign("h_genero2", 					"value", 			"");
	$objResponse->assign("h_especie1", 					"value", 			"");
	$objResponse->assign("h_especie2", 					"value", 			"");
	
	$objResponse->assign("h_lista_claves", 				"value", 			"");
	$objResponse->assign("h_lista_valores", 			"value", 			"");
	
	$objResponse->assign("h_clave1", 					"value", 			"");
	$objResponse->assign("h_valor1", 					"value", 			"");
	$objResponse->assign("h_clave2", 					"value", 			"");
	$objResponse->assign("h_valor2", 					"value", 			"");
	
	$objResponse->assign("h_img1", 						"value", 			"");
	$objResponse->assign("h_img2", 						"value", 			"");
	
	$objResponse->assign("h_respuesta", 				"value", 			"");
	
    return $objResponse;
}
?>